home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / MacInterface / windows.dcl < prev    next >
Encoding:
Modula Definition  |  1996-02-22  |  1.6 KB  |  53 lines  |  [TEXT/3PRM]
  1. definition module windows;
  2.  
  3. import mac_types;
  4.  
  5. InDesk :== 0;
  6. InMenuBar :== 1;
  7. InSysWindow :== 2;
  8. InContent :== 3;
  9. InDrag :== 4;
  10. InGrow :== 5;
  11. InGoAway :== 6;
  12. InZoomIn :== 7;
  13. InZoomOut :== 8;
  14.  
  15. //    Initialization and Allocation
  16.  
  17. NewWindow :: !Ptr !Rect !{#Char} !Bool !Int !WindowPtr !Bool !Int !Toolbox -> (!WindowPtr,!Toolbox);
  18. NewCWindow :: !Ptr !Rect !{#Char} !Bool !Int !WindowPtr !Bool !Int !Toolbox -> (!WindowPtr,!Toolbox);
  19. DisposeWindow :: !WindowPtr !Toolbox -> Toolbox;
  20.  
  21. //    Window Display
  22.  
  23. SetWTitle :: !WindowPtr !{#Char} !Toolbox -> Toolbox;
  24. SelectWindow :: !WindowPtr !Toolbox -> Toolbox;
  25. HideWindow :: !WindowPtr !Toolbox -> Toolbox;
  26. ShowWindow :: !WindowPtr !Toolbox -> Toolbox;
  27. ShowHide :: !WindowPtr !Bool !Toolbox -> Toolbox;
  28. SendBehind :: !WindowPtr !WindowPtr !Toolbox -> Toolbox;
  29. DrawGrowIcon :: !WindowPtr !Toolbox -> Toolbox;
  30. FrontWindow :: !Toolbox -> (!WindowPtr,!Toolbox);
  31.  
  32. //    Mouse Location
  33.  
  34. FindWindow :: !Int !Int !Toolbox -> (!Int,!WindowPtr,!Toolbox);
  35. TrackGoAway :: !WindowPtr !Int !Int !Toolbox -> (!Bool,!Toolbox);
  36. TrackBox :: !WindowPtr !Int !Int !Int !Toolbox -> (!Bool,!Toolbox);
  37.  
  38. //    Window Movement and Sizing
  39.  
  40. MoveWindow :: !WindowPtr !Int !Int !Bool !Toolbox -> Toolbox;
  41. DragWindow :: !WindowPtr !Int !Int !Rect !Toolbox -> Toolbox;
  42. GrowWindow :: !WindowPtr !Int !Int !Rect !Toolbox -> (!(!Int,!Int),!Toolbox);
  43. SizeWindow :: !WindowPtr !Int !Int !Bool !Toolbox -> Toolbox;
  44. ZoomWindow :: !WindowPtr !Int !Bool !Toolbox -> Toolbox;
  45.  
  46. //    Update Region Maintenance
  47.  
  48. InvalRect :: !Rect !Toolbox -> Toolbox;
  49. ValidRect :: !Rect !Toolbox -> Toolbox;
  50. BeginUpdate :: !WindowPtr !Toolbox -> Toolbox;
  51. EndUpdate :: !WindowPtr !Toolbox -> Toolbox;
  52.  
  53.